home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / www / IBrowseScripts.lha / ibrowsescripts / rexx / OfflineMiami.ibrx < prev    next >
Text File  |  1998-10-30  |  823b  |  37 lines
  1. /* OfflineMiami Sören Forsberg 1998 */
  2. /*  */
  3. OPTIONS RESULTS
  4.  
  5. window='YES'  /* Delete  this line to remove window */
  6.  
  7.  
  8.     IF SHOW('Ports','MIAMI.1') THEN DO
  9.       ADDRESS 'MIAMI.1' 
  10.       'ISONLINE'
  11.       result=rc
  12.       IF result=0 THEN DO
  13.         ok=open('OfflineMiami','CON:60/100/150/22/OfflineMiami/cds')
  14.         call writeln 'OfflineMiami','    Miami is'
  15.         call writeln 'OfflineMiami','ALLREADY OFFLINE!!'
  16.         ADDRESS "COMMAND" "wait 3"
  17.       END 
  18.       'ISONLINE'
  19.       result=rc
  20.       IF result=1 THEN DO
  21.         IF EXISTS('ibrowse:rexx/busywin') THEN ADDRESS "COMMAND" 'run ibrowse:rexx/busywin OFF'
  22.         'OFFLINE'
  23.       END
  24.  
  25.     END
  26.  
  27.     IF ~SHOW('Ports','MIAMI.1') THEN DO
  28.         ok=open('OfflineMiami','CON:60/100/150/22/OfflineMiami/cds')
  29.         call writeln 'OfflineMiami','  Miami is'
  30.         call writeln 'OfflineMiami','not running!!'
  31.         ADDRESS "COMMAND" "wait 3"
  32.     END
  33.  
  34.  
  35. EXIT    
  36.  
  37. N